COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	TITLE CITORE PROGRAM
C00004 00003	END CITORE
C00005 ENDMK
C⊗;
TITLE CITORE PROGRAM

A=1
B=2
C=3
D=4

CITORE:
	MOVEI A,17777
	CORE A,
	 EXIT 0,
	DETSEG 0,
	RESET
LOOP:
	ADD B,FOO
	MSTIME A,
	ADD A,B
	MOVSM A,FOO
	ANDI A,77
	IMUL A,[2020202]
	AND A,[104422010]
	IDIVI A,377
	MOVE A,B
	MOVE C,B
	GETNAM A,
	JBTSTS B,
	TLNN B,10000
	 JRST LOOP
	TLNE B,101000
	 JRST LOOP
	MOVSI B,377777
	SETPR2 B,
	 JRST CITORE
	MOVE B,400236
	ADDI B,400000(C)
	MOVE B,(B)
	TLNN B,65000
	 JRST CITORE
	HRRZ B,C
	GETPRV B,
	MOVSI D,1
	GETPRV D,
	TLNN D,B
	 SKIPA
	  JRST CITORE
	MOVE B,400212
	ADDI B,400000(C)
	MOVE B,(B)
	 ANDI B,777
	CAILE B,200
	 JRST CITORE
	LSH B,11
	SUBI B,1
	CAIGE B,17777
	 JRST CITORE
	CORE B,
	 JRST CITORE
	MOVE B,C
	JBTSTS B,
	ANDI B,77
	DETSEG 0,
	ATTSEG B,
	 JRST CITORE
	SETNAM A,
	MOVN B,A
	MOVEI A,73
	SLEEP A,
	JRST CITORE

FOO:	SIXBIT/CITORE/

END CITORE